home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / parad / may96 / clemf105.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  7.8 KB  |  534x347  |  4-bit (5 colors)
   ocr: - FIND AGE.FSL-PTelerred UI Button:Determine Age* method Determine Age(const Date0fBirth Date, const AgeonThisDay Date) Smallint var MonthDay1, MonthDay2, Age Smallint endvar MonthDay1 = montn(Dateufbirth) * - 190 + day(DateUfbirth) MonthDay2 = nontn(AgeunTnisDay) * 100 + lay(AgeunThisDay) Age = vear(AgeonThisDay) - year(DateUfbirth) if MonthDay1 > MonthDay2 then Age = Age - 1 endif return Age endmethod Edit Line: 1 Col: 1